There are now procedures for producing listings of tape files in
both character and hex format. These procedures allow you to determine
the logical record length (lrecl), format and block size of a non-labeled foreign or library tape. There is a CLIST called from TSO and a PROC called from
JCL.
TAPEDUMP CLIST:
From TSO: TAPEDUMP DSN(DATA.SET.NAME) VOLSER(vvvvvv)
The DSN and VOLSER parameters are required. There are
additional parameters which you may supply or take the defaults.
FSQN(1) - File sequence number, defaults to 1.
LBL(NL) - Label type, defaults to non-labeled.
EXPDT(98000) - Expiration Date/TMS, defaults to foreign tape.
COUNT(10) - Count, the number of blocks to dump.
This CLIST submits a batch job whose output may be viewed in
ISPF panel 3.8 and requeued for printing.
TAPEDUMP PROC:
From JCL: //STEP1 EXEC VOLUP,VOLSER=vvvvvv,ACCESS=READ